home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_304_EachMenuItem < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.6 KB  |  61 lines
  1. %case define%
  2.     %MenuName%%MenuItemName%%    %= %MenuItemNr%;
  3. %case usesDialog%
  4.     %if dialogExists%
  5.         %dlogname%,
  6.     %endif%
  7. %case dialogDependency%
  8.     %if dialogExists%
  9.         %dlogname%.p ∂
  10.     %endif%
  11. %case doItem%
  12.     %if MenuName = File%
  13.         %DoMenuItem.File%
  14.     %elsif MenuName = Edit%
  15.         %DoMenuItem.Edit%
  16.     %elsif About%
  17.         {----------}
  18.         Procedure Do%MenuItemName%;
  19.         var
  20.             itemNr:        integer;
  21.         Begin
  22.             itemNr := Alert (AboutID, nil);
  23.         End; {Do%MenuItemName%}
  24.  
  25.     %else%
  26.         %DoMenuItem%
  27.     %end if%
  28. %case handleItem%
  29.     %MenuName%%MenuItemName%:
  30.             Do%MenuItemName%;
  31. %case enableFile%
  32.     %if menuitemname = Close%
  33.         Enable (FileClose,        isFront);
  34.     %elsif menuitemname = Save%
  35.         Enable (FileSave,        isDirty);
  36.     %elsif menuitemname = SaveAs%
  37.         Enable (FileSaveAs,        isCur);
  38.     %elsif menuitemname = Revert%
  39.         Enable (FileRevert,        isDirty);
  40.     %endif%
  41. %case enableEdit%
  42.     %if menuitemname = Undo%
  43.         Enable (EditUndo,        isDesk);
  44.     %elsif menuitemname = Cut%
  45.         Enable (EditCut,        isDesk or isSelected);
  46.     %elsif menuitemname = Copy%
  47.         Enable (EditCopy,        isDesk or isSelected);
  48.     %elsif menuitemname = Paste%
  49.         Enable (EditPaste,        isDesk or isScrap);
  50.     %elsif menuitemname = Clear%
  51.         Enable (EditClear,        isDesk or isSelected);
  52.     %elsif menuitemname = SelectAll%
  53.         Enable (EditSelectAll,    isText);
  54.     %elsif menuitemname = CreatePublisher%
  55.         Enable (EditCreatePublisher,    sysConfig.hasEditionMgr and isSelected);
  56.     %elsif menuitemname = SubscribeTo%
  57.         Enable (EditSubscribeTo,        sysConfig.hasEditionMgr and (not isSelected));
  58.     %elsif menuitemname = SubscriberOptions%
  59.         Enable (EditSubscriberOptions,    false { (publisherSelected or subscriberSelected) });
  60.     %endif%
  61.